UUU 


UUU UUU 
UUUUUUUUUUUUUUU 
UYUUUUUUUUUUUUUU 
UUUUUUUUUUUUUUU 


AA tt St HH HH A SH HH HH 
AAA tt St Se SH SS HH 
AAA st tH St HH 


EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 


T PPPPPPPPPPPP 
T PPPPPPPPPPPP 
T PPPPPPPPPPPP 

PP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


*eF I LE®*1D®*RMSTESTS 


ww 

ww 
vwwvwvwwwr rr rr rr 
Se 

ww 

ww 

ww 

ww 
www 
www 
a 
— 
a 
—— 


ee ee eo 
ee ee a 


7 
ee 
a 
own ANNwM 
nw NNNNM 
nn nw nn 
nn nn nw 
nn nn nw 
nw nw nw 
nn nw "nn 
nn nn nn 
NNNNM nn 
NNNM nw 
ww wu 
ww ww 
wus wu wu 
wus wu wu 
ww wu wus 
wus wu wu 
wus wu wu 
wus uw wu 


WW UW dd a dd 
UW Us ss as a a 


en er 
an ee ee ee eee 
a 


— 
a 
a 
nn NNN 
nw NNNM 
nn nw nn 
nw nw nw 
nn nn nn 
nn nn nn 
nn nn nw 
nn nw nw 
YNNNM nw 
NNMM mn 


nn Ann 
“wn MuwWnnw 
vn nw nn 
nw ww nw 
“unm on unm 
nn wn mn 
“wn nw wn 
mn nw un 
Mnnw nn 
MwnnMmn wn 
ey —— 
oe ose 


Fd Od Oe Og Og Os Od es Od Od OS 
Oe ae at ag ad Ot ad Og Ot Ot OO 


te =—e 
oe —e 
sj4 
awd 
ae) 
a4 
a4 
aa 
waa 
=!) 
ao I I I I I I I 
ad od I od I od od I I I ed I 
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B08 aioe 7 4334383 UETP. SRC RMSTESTS.MAR: 1 wT eh 00 
IDENT 'Vv04-000" 
? $BEGIN RMSTEST4,009,__RMSTEST,<XAB RMS TEST PROGRAM>,<GBL,LONG> 
, 3 
: .ENABL DBG 
4; 
p 5 ; macros: 
cat 
00 0° 
00 91 .MACRO TYPE STRING, ?L 
00 36 STORE  <STRING> 
9000 9 BLBC  VERBOSITY,L 
0000 «= «9 MOVL  #$$.TMPX, CMDORAB+RABSL_RBF 
0000 95 MOVW #$$.TMPX1, CMDORAB+RABSO_RSZ 
0000 («49% $PUT § RAB=CMDORAB,ERR=REPORT_ERROR 
000 97 BSBW Ss ERR 
000 9BL: 
000 99 .ENDM = TYPE 
0000 100 
9000 101 F 
000 (1 g 
0000 10 «MACRO STORE STRING,PRE 
0000 104 SAVE 
0000 105 “PSECT __S$RMSNAM 
itd 19 _e : i trol inf 
0000 108 "ASCII XSTRINGS Dh hie Se ih he Mle ar cie cha 
000 109 $$. TMPX1=.-$$. TMPX 
0000 110 REST 
0000 111 “ENDM STORE 


. 9 
gre abe hus caane CREE QUESTS WONAMENDB RACs MH 


.MACRO 8 


mPX BEG_DESCR+4 =; addr 
Px »BEG_DESCR : len 


.TMPX,FLD_DESCR+4 =; addr 
THPX{ , FLB_DESCR > Len 


— ss ss — 9 — 9 — 4s —» 2» 2s 2 > 2 os 


WWIWNIIPORoNononononononongn | = 2 


WR" OOONOA NEW OOWONOUS Ww 
. 
=z 
> 
o 
zz 
Oo 


i " 
MOVL a 
BSBW EGPUT 
ENDM BE IN 
HA fl ISH TSTNAM 
ne FIN _DESCR+4 3; addr 
VL *TMPX4, IRD DESCR : len 
BSBW aS: tR 
~ENDM 1SH 
99 ~MACRO tbe FLDNAM 
> STORE DNAM> 
$00 
000 
000 


< 
Ce 
—r po = Rel 


-vo 
oc 


82 


a 


0000 


oO Ooo” 


00000024 
0000 


Me a sh I SI BI OOOOOCOOOCOCO 


OOOO OCOCOCOCOCOCOCOCOCOOCOOOOCOCO OOOO OOSooOoOOoO 


PERPARES 
OHH RG 
SEPP Crer 
OB HITE GAT SSH 


ws 


DANN NNN NNN AA AAA A AAA MMM BPP PPLE 


Ow FW RM | OCOONOUE WO ODNAU EWN 9 OONOAU EWN 0 OO NOUNS Ws" 00 


ta —— 3S a ed td od od = 6 = 2 = 2 2 8 4 3 8 2 SS 2 = = 2 


—" 
co 
GN 


XAB RMS TEST PROGRAM 


-PSECT 
LIGN 


PLUSH FAR: A 


FHCXAB:: 
ALQXAB:: 


PROXAB: : 
DATXAB: : 
RDTXAB: : 
TRMXAB: : 


SAVEPRO: 


attenti 


SXABFHC 
SXABALL 


SXABPRO 
SXABDAT 
SXABRDT 
SRMSDEF 


- WORD 


"BrSEp= Tbe Oai31:83 PORT Sacdamgreste mans 1 
contsTESt Gat .LONG 


FNM=<TSTSDISK:T4FILE.DAT;1>,- 
ORG=SEQ,- 


FAC=<PUT,GET>,-=- 
FNM=<TST$DISK:T4FILE.DAT; 1>,- 
NAM=NAMBLK, = 
SHR=<PUT, GET, UPI>, = 

XAB=F HCXAB 


on: in order to assemble this module, t4rab and FLUSH_RAB 
ave been put into another module, RMSTESTR 


NXT=ALQXAB 

NXT=PROXAB,- 

DEQ=15 

END 

EXTRA=XABS$L_SBN-4 ; 4 bytes of extra (spare) char. 
0 ; word to save pro in 


;THESE ARE THE DATA STRUCTURES FOR DATE AND TIME XAB CHECKS 


o 
o 
“ 
ee 


PJ 
~] 
“4 
ee 


nm 
o 
“4 
ee 


RDT2: 


«ASCII 


CDIL=.- 
-ASCII 


ROTL=.- 
-ASCII 
EDTL=.- 
-ASCII 
RDTL2=. 


/ 3-MAR-1963 03:03:03.03/ 
COT 

/ 4-APR-1944 04:04:04.04/ 
RDT 

/ 8-AUG-1988 08:08:08.08/ 


EDT 
/12-DEC-1948 12:12:12.12/ 
“ROT2 


SS, 


*, 
pag ests XAB RMS TEST PROGRAM "$75 ath 9 gi: ar AX/VMS Macro V04-00 Page 4 


SEP=1 UETP.SRCIRMSTESTS.MAR; 1 (4) 
D00001AA' 1 6 188 COTDEC: .LONG CDTL,COT 
3900019009001 Of 188 RDIDEC: “LONG = ROTL ROT 
00000108' 1 ! 331 Fi -LONG EDTL,EDT 
000001€F "00000017 ",LONG RDTL2,RDT2 
194 CURRVN: .WORD 
195 LEN: «WORD ; length of returned string 
0000024 1 $ CMPDAT: .BLKB 5 ; has room for longest possible date 
4 197 CMPDATDEC: 
0000022A' 99 19 4 138 - LONG 5, CMPDAT 
; 48 CURRDT: .LONG ; address of current rdt string 
00 4 , UIC: ~ LONG ; room to save current uic 
0000008 DATLEN=1 : length of date 
0000014 08 TIMLEN=20 ; length of ascii date and time 
4 


Rmmaoreeer: « 


SSSlRR 
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OFFC 33 ! RMTSTEST MAR; 1 


create a file -- sysS$disk:t4file.dat;1 -- with controlled attributes 
and urite 1 record to it, to further control the attributes 


A: : 
WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
EGIN <XAB tes 3483 


a ts 


5B FD92 CF ODE MOVAL T4FAB,R11 ; ri} wilt be fab throughout 
; initialize values for restartability 

SFAB_STORE FAB=R 

SHR= pur. GET. suel>, - 

A tars 34 

HCXAB,© - 
Ata 
hi=40,* 


FEID CF B4 CLR KABSW_ a he ; make sure irl is 0 
SXABPRO. STORE™ a tt 


“PRO=<R RWED, AD. D RuED>, . 
U ath 
MOVL XABSL 


UIE(RO) ,UIC i$ 
MOVW  XABSW “PROCRO): + SAVEPRO : d 
SXABALL STORE XAB=ALQXAB, ~ 


AOP=CT - 
SCREATE FAB=R11,- 
E eagaly ERROR 


BBC #Dey 
atthe Vpevckit), 10$ 
A f mta, skip this 


B MT :. 
108: cMPL ALQXAB+XABSL_ALQ,#10 : allocated 10 blks? 
ee FIELD <ALQ IN XAB ( NOT = DESIRED ALLOC ON CREATE)> 
"BBC wraBsy CBT FABSL FOP(RI1) ,0K1 
FIELD T BIT SET REFO E> 
OK1: BBS Staesy CTG, Treat” FOP(R11) ,OK2 
al FIELD <CTG BIT CLEAR, THEREFORE> 


SBW ie: XABS 


AQ 


AS AF OC D eitf hecki 
FEFB CF O08 AO 8B + or checking 


OSGNNMSCOCOC OOM TP PPrr>r>» 


; with all xabs Linked in 
FD33° 
0000000. ie 
03 40 
O3F 
OA FDFF CF 
15 


RONOO?S OOO MDOOOol™ "yPuiom 


15 04 AB 14 «€0 


CHE ; check xabs 
TYPE <OK COPTER CREATE AND DISPLAY> 


textend 


MOVL #48 ah, 4 AL OCA OXAS ; set up 


cuRL KABELN 
X08, PABSCS XAB(R11) 
SEXTEND PABSR {,- ; extend file after create 


ROOD NOA MNES WN OOD NA UE WN 9 OD NOU EWI OOO NOU EW OOONOUS 
a 
=< 


PPD GAA B&B PPLE 


Le 


OW 
o-oo 


oO 


0000 
pocecnen "it 0 
0000 


XAB RMS TEST PROGRAM 


6 


ALQOK: 


MOVAL 


wOoD00 CD00 Ht eet PR RPP AN PW Ae OS 


SOCONAS UNEWNM-OOONOUS WOOO 


"SSEb=198¢ 04:31:53 LOETPMSRCBRnSreStacman: 1 


ERR=REPORT_ERROR 


: jusing alq from xab 


ERR 
ALQXAB+XABSL_ALQ, #48 ; alq in xab should ret actual alq 
<ALQ IN XAB (NOT = DESIRED ALLOC ON EXTEND)> 


undo damage to xab Links 


FHCXAB,FABSL_XAB(R11) 
ALQXAB, XABSL_NXT+FHCXAB 


PROXAB , XABSL_NXT+ALQXAB 
CT RAB=T4RAB,- 
ERR=REPORT_ERROR 


#0,(SP),#*A/A/,#50,CPYBUF; move 50 a's into cpybuf 


cPyBUF RABSL ofBESTARAB 
,RABSW 4RAB 


RAB =T4R 
ERR= cTORA = ERROR 
ERR 
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pag tests 


34 ; take some time to try out flush 


SFLUSH RAB=T4RAB,- 
ERR=REPORT_ERROR 

BSBW CER 

BSBu ZERO 

OPEN FAB=FLUSH_FAB,- 
ERR=REPORT_ERROR 

BSBW CER 

SBW CHEC 


B K_XABS 
SCONNECT RAB=F LUSH_RAB,- 
1+ ated hs tenaes 


PSP OWWWOA AO OUI ESE ANWIANIPINY = DOODO0C0OO 


WNW 2 QOS BP POAOWN PWIA MM LEE HNOOWOOOS PP NFWNWOU Pr PP PP PP 


BRR RR RRR RRP RPP RRP RPP PPP PPP PEE 


TYPE <ALL DONE WITH FLUSH TEST> 


; all done with flush test 


WAWAWAWIAI ATR ROPPIMIPINONININ 3s SS BQO OOO 00000 
Wine 


NOUS OODNAUSWN"OOONA UEWN"OOONOUS WN OOOO 
nm 
_— 
m 
J 


8 
$GET RAB=FLUSH_RAB,- 
iad ERR=REPORT_ERROR 
32 0000000 ety RABSW_RSZ+FLUSH_RAB,#50 ; got right rec. size 
— FIELD <RSZ IN RAB> 
00 41 BF 00000000 'EF = CMPCS #50,CPYBUF ,#*A/A/,#0,(SP); is record ok? 
YES 
“es <RECORD> 
" « $GET ~—s- FLUSH_RAB ; this should be eof 
00000000 ° 8F D1 B CMPL RO, #RAS$_EOF 
A 13 048 BEQL 
by, tes * oF 48 MOVAL FLUSH_RAB,R10 
FBSA‘ rt: 10$ BSBW EOF PUT 
FBAA CF D4 04C ; CLRL FABSL_XAB+FLUSH_F AB ; no xabs on close for now 
4C SDISCONNECT RAB=FLUSH_RAB,- ; clean up after flush 
4C ERR=REPORT_ERROR 
FB20' 30 04D BSBW RR 
4E SCLOSE FAB=FLUSH FAB,- ; all done w/ flush test 
4E ERR=KEPORT_ERROR 
FBOC' 30 re! BSBW RR 
: 
5 
5 


Coooo 
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608 Breer o bs bars ses FOP SReeanerectecgarn:1  Pame O8, 


SP TSCONNE ER REPORT ERROR” 
= 
FAC?" 30 BSBW CER 
ren ERRcR Re Doar ERROR 
FABS' 30 BSBW sé : 
17 AB OG CLRB = FABSB_SHR(R11) 
24 AB Fede CF be MOVAL FHCXAB,FABSL_XAB(R11) =; set up xab Links again 
200 SBW ZERO XABS 
OPEN FAB=R11,- 
ERR=REPORT_ERROR 
FA97" 30 BSBW sé 
1504 AB 15 €1 BC #F aBsy {8 FABSL FOP(R11),CC 
FIELD  <CBT WAS SET; eGHEREF ORE> 
15046 AB 14 €1 CC: BC aF hast hy FABSL_FOP(R11),OK; after extend, not ctg 
FIELD <CTG BIT WAS SET. THEREFORE> 


; check fhe xab 


0282 30 OK: BSBW CHECK_XABS 


ido another extend, forcing it to get the value from the alq of the fab 


CLRL pABSL XAB(R11) 
MOVL FABSL_ALQ(R11) 
SEXTEND i AB: R11,- 

R=REPORT _ERROR 


AB 
10 AB SCOOC:~Sts«éiédO 


SOVCWWODS YS PPPPP PF OOWOOOOWOO AAAI FEE WWInononn) 


DWOOWIS OF SLL S LLL LANG OONNWOOCOCOCCOT 99999 OWM OOO NVNEMND DW OOOO WI 
DENN 9 OD NAN EW OS OOD NAN EWN SO OD NOA UE WI 2 O OO NOAM EW 0 CONOULS W000 
ee 


WOOO DO O0909 690909 G9 0969 C909 Si INN SN NSN SID DPD OPA A AOD TTT Ee PPE 


Fe ee oat oh athe ap eal ahaha AL ah Abr db Abd apr Abr Abr Abr db Arab Ar Abr ahr ahr shah shah ahvahvalvahvahvahvalvalvalalvalvaleaivalvalvaleaieaimalvalealeaiaiealeal 


D4 0 
FAG7" 30 BSBW 
oc 10 pt CPL th ALQ(R11) #12 : alq in fab=12 
FIELD <ALQ IN FAB (NOT = DESIRED ALLOCATION AFTER EXTEND)> 
ALQOK1: 
p i change protection and uic on close 
D Py 
D SXABPRO_STORE _XAB=PROXAB,- 
p “PRO <Rued D gS? »RED.RWED>,- 
24 AB 50 OD E MOVL UA FABSL (R11) 3: set ey xab 
FBBS CF 08 A0 8 E MOVW XABSO PROC ), SAVEPRO : for c chec 
FC5S6 CF «=O ADCO F MOVL KABSL RO) UIC : ditt 
F SCLOSE 
F ERt= =a _ERROR 
F9FS* 30 BSBW 
24 AB OFAQT CFO MOVAL FHCXAB, FABSL_XAB(R11) 


SOPEN FAB= Rites :; check changes after ext 
ERR=REPORT _ERROR 


a 
— 


kK 9 
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~— 
me 


Vv Becre v04-00 
P.SRCIRMSTEST4.MAR; 1 


F9DD' 3 BSBW =s ERR 
15 04 AB 14 Ht ; 38 BBC ar ABSY | cer 1 ,EABSLF FOP(R11) ,NOCBT 
FIELD wAs : THEREFORE> 
15046 AB 14 «€1 NOCBT: B8BC SFABSV He ABSL_FOP(R11) ,NOCT shouldn't be ctg, after extend 
4 aoe FIELD <CTG art WAS SET; AFTER 2 EXT hog, THEREF ORES 
5 FAGS CF OD 37 MOVAL FHCXAB,R9 : check ectigent fields 
00000046 8F OC AP bj 65¢ CHL” KABSL BK (ROD #70 t algs10048+12 
ee6 FIELD pit aT FHCKAB (AFTER 2ND EXTEND)> 
00 28 Ad » B HBKOK: CMPL XABSL_SBN(R9) , #0 3; not ctg anymore 
15 1 7F BEQL STILL~OK 
8) ees oxt ELD <SBN IN FHCXAB (AFTER 2ND EXTEND)> 
og OE HE tae, eget lec er ain on 08 
° ; values for atq,c not ¢c 
025 36 698 BSBW CHECK 79 ° 
69E TYPE DONE “tity H 2nd EXTEND, NOW TEST DATES> 
24 AB D4 O06CD CLRL FABSL. X ; no xabs on this close, for now 
6 MTA:  $CLOSE FAB= te t continue if mt 
6 ERR=REPORT ERROR 
FOIE’ 30 6 BSBW Ss ERR 


before finishing up, have some fun with the dat and rdt xabs 


RO OONOU ES WIN OOO NOUS WIN | 0 OO NAUN EWN 2 CO OO NOA UNE WH) | CO CONOUE WOO 

bad 
@ 
— 
zz 

—s 

be es toe 

tte 


MONA BEER EEE LWW W IIR POPOPOPONONPOPN 2 BQO OOO OOCOCOO OO 


Feel Deak Deak, Ua ake le la Aah athe i ihe Nalini hn tek tek ak ak te al el ek ek ek ek ek ee ee ek a te at ek et a al ta at a ed dt ak Jt tat ak tak tak ek 


D 
4 
O6DF 
06E 
06E 
6E 
4: 
59 FASE CF DE 06E MOVAL DATXAB,R9 
06E SBINTIM_S CDTDEC.XAB$Q_CDT(R9) 
GF “5 RDTDEC, XAB$Q_RDT(R9) 
0 0 $81 -§ EDTDEC. XABSQ_EDT(R9) 
08 A9 _ BBE Fe B0 it MOVW —#200,XAB$W_RVN(R9) 
FBO8 CF 00¢ BO 071 MOV #200. CURRVA 
DO 071 MOVL  R9,FABSL_XAB(R11) 
D4 07 CLRL  XABSL_NXT(RO) 
FBIF CF EASA tr DE 07 MOVAL RDT,CORR : current rdt str 
04 AB 00000080 8F CC 07 ¢ BISL #FABSH RMO, FABSL_FOP(RI1) : rewind if mta 
Ss — 
734 ERR=REPORT_ERROR 
F8BA' 30 0743 BSBW 
FOFB CF FA26 CF DE 746 NOVAL RDIXAS aang aToaTae 
730 SDISPLAY FABS R11 
3 ERR=REPORT “ERROR 
F89E° 30 75F BSBW ss ERR 
0328 4630 162 BSBW CHECK DATES 
FADF cf FA cr DE 765 ROVAL Rot CURRDT ; get a new rdt 
ref SBINTIM_S RDT2DEC ,XAB$Q_RDT(R9) 
98 ag ot C 8F BO O77F MOVW Oe 00. KABSH_RV RVN(RO) 
FASA CF O12C BF BO 0785 MOVW #300. CURRVA 
24 AaB 59 DO 078C MOVL  R9,FABSL_XAB(R11) : only rdt for close 
7 6 SCLOSE FAB=R11,> 
79 ERR=REPORT_ERROR 
FBS5E" 79F BSBW sé 
24 AB FOOSE CF DE O7A MOVAL ODATXAB, Aes XAB(R11) ; only dat for open 
F99C CF 7A CLRL. XABSL_NXT+DATXAB 


L 9 
snes a_i 109 formes NRIOL WMA 


68 10 TAC 4 SBB __ZERO_DAT_XABS 

cA ; FAB_ST OF a FAB=R11,- :; can't ‘'put’’ to mta 
7B2 4 5 SOPEN FAB=R 
7B2 4 ERR= BEREPORT ERROR 

FB3C' 30 O7cl 4% : SBW RR 

24 AB OFOAB CF CODE eee 4 ; ROVAL RDTXAB, FABSL XAB(R11) ; get rdt on display 

7CA te "eRe REPORT “ERROR 

F824" 39 709 4 BSBW RR 

0281 Zoe 4 BSBW §CHECK_DATES 

24 AB OG 2p 4 4 cLR L - FABSL Pata tt) ; io xabs for this close 
he 466 ERR=REPORT _ERROR 

FB0C' 30 O7F 46 BSBW ss ERR 
ree eS 
7F4 135 $FAB ~S TORE FAB=R11,- ; restore fac 
7F4 471 FAC=PUT 

04 AB 00000080 BF CA O7F8 47g BICL #FABSM RwO, FABSL_FOP(R11) : and fop 
tty 47 FINISH <XAB TESTS 
04 0815 474 RET 
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32 routines to zero out the xabs before checking the results 
ZERO_DAT_XABS: 


;zero out the dat and rdt xabs 
gs +4 43 68 C vee aR. (88) of o#<XABSC_DATL a me te thy te 
E 0 0 f pea’ #0; (SP) #0, #<XABSC— _RDTLEN-6>,RDTXAB+ 


SOWONOAOU ES LP - OOOnNIO 


SELLE L LLLP LPL LL EPP LED 


ETN NSN NNN NPA PPO POPP PDOnm 
WOOO OO 0000000 0900090900 00090 SII 
Mlwr— 


PWIGPOPPOPOPOPOPONNUN 2 2 2 2 oe 


ZERO_XABS: 
0 i ;zero out the fhc, all and pro xabs 
F877 CF 26 00 6E 00 C 6 49 MOVC #0,(SP) ,#0,#<XABSC_FHCLEN-6>,FHCXAB+6 
F89B CF 00 6—€ 00 C 498 MOVC #0, (SP) ,#0,#<XABSC_ALLLEN=6>, ALQXAB+6 
0052 8F 00 Pies 4 Cc 0 499 MOVCS #0, (SP) ,#0,#<XABSC_ PROLEN-6>,PROXAB+6 
05 8 500 RSB 


S32 


RMSTESTS XAB RMS TEST PROGRAM 16-SEP-1984 01:47: AX/VMS Macro v04-00 Pp 1 RM 
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3 BSBW GHECK FHC 
-BYTE ,10,0,1 ; values for Iirl,alq,ffb,sbn 
BSBW = CHECK_ALL 
-BY ; values for alq,ctg ( should be) 
BsBu CHECK_PRO 


§ CHECK_CR: 

4; 

5 routine to check xabs after create and subsequent displ. 
CHECK_XABS: 


PXDRAQED_ELEPARAA ADA MA Se PLE 


BH Vitrrororonoranono oemes OU ORORORORORORORO ottto> QU NRORGRORGRURGAG 


) 
9 5 
: 
0 
09g? 0 1 BSBW CHECK FHC 
00 3A 32 8 5 § BYTE 0,58,56,0 ; values for Irl,alq,ffb,sbninot ctg) 
0006 30 BSBW CHECK ALL 
00 3A 0 4 BYTE 8,0 ; values for alq,ctg ( not ctg anymore) 
0098 30 08 5 BSBW  CHECK_PRO 
05 08 é RSB 
08 : CHECK_ALL: 
OB ? 
08 : troutine to check out the allocation xab 
0 e 
59 FB66 CF DE 3 3 4 MOVAL ALQXAB,R9 
OF 14 A9 Bi 08 535 CMPW = XABS$W_DEQ(R9) .#15 
15 13 08 3 6 EQL dE 
086D 7 FIELD <DEQ IN ALL. XAB> 
00 16a9 91 0882 338 DEQOK: CMPB § XABS$B_BKZ(R9) ,#0 
15 13 0 86 3 BEQL KZ0K 
83 40 FIELD <BKZ IN ALL. XAB> 
50 00 BE oA % 341 BKZOK: nOVZBL a(SP),RO 
wo HS El FL Bun nsen 
BA9 45 FIELD <ALQ IN ALL. XAB> 
50 00 BE 9A a 46 ALQOK2: mOVZBL a(SP) .RO 
1A 4 Pg ¢ 48 BLBC RO,NOTCTG 
2F 08 Ao) «(07)—CEO «OBC? S54 BBS #XABSV_CTG,XABSB_AOP(R9) ,AOPOK ; should be set 
CC 30 FIELD <CTG CCR IN AOP, THEREFORE> 
15908 a9 O07 €1 E1 51 NOTCTG: BBC #XABSV_CTG,XAB$B_AOP(R9) ,AOPOK ; should be clear 
6 £6 3 FIELD <CTG SET IN AOP, THEREFORE> 
05 FB ; AOPOK: RSB 
FC 38 CHECK_PRO: 
FC 3§ 3 
FC 58 ;check the protection xab 


B 10 
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Fe Bag? 
9 F7E CF OD FC MOVAL PROXAB,R9 
08 AD =s«FBA cE : sof cnr SAVEPRO,XABSW_PRO(R9) ; cmp to saved value 
909 564 FIELD <PROT FIELD IN PROT XAB> 
OC AD -F92D CF D4 git 65 PROOK: CMPL UIC, XABS$L_UIC(R9) 
15 13 09 66 BEQL 
926 656 FIELD <UIC FIELD IN PROT. XAB> 
05 0938 68 UICOK: RSB 
093c 40 56 


RMSTEST4 XAB RMS TEST PROGRAM 16-SEP-1984 01:47:44 VAX/VM 4- 
003 S-SEP=1984 Oui21:52 LUETPeSRCSRMS TESTER 


“-SEP- TP. SRCIRMSTEST4.MAR; 1 
3 C 71 CHECK_FHC: 
E 8h 
ate $57} check the xeb carefull 
3; chec c xab carefu 
ae 
59 F760 CF ODE $4 7 exte MOVAL FHCXAB,R9 ; 9 is ptr to xab thru-out cmp's 
03 08 Ad 4 94 i: CMPB XABSB_RFOCR9) ,MFABSC_VFC; check rec. format & org. 
94 0 BEQL F 
94 1 FIELD <RFO IN FHC XAB> 
09 Ad 98 9 95 § RFOC: BITB #FABSM_CR,XABSB_ATR(R9O) ; check rat field 
1 1 96 BNEQ 
39 4 FIELD <ATR IN FHC XAB> 
50 00 BE 9A 09 5 ATRC MOVZBL a(SP),RO 
oF D6 0978 § INCL (SP) 
50 OAA Bi 097D CMPW XABSW_LRL(RY) ,RO ; check longest record len 
+ Saeme te +4 3 BEQL LRLC ~ 
9 ; FIELD <LRL IN FHC XAB> 
50 00 BE 9A 099 590 LRLC MOVZBL a(SP),RO 
oF D6 099C 91 INCL 
50 OCA D1 99 5 CMPL XABSL_HBK (RI) ,RO 3; check alq 
15 18 O9A 9 BGEQ res C 
9A4 594 FIELD <HBK IN FHC XAB> 
01 10 AJ iOD1 989 95 HBKC CMPL XABSL TEBK(R9). #1 3; check end block 
15 13 09BD 38 BEQL KC 
SBF 9 FIELD <EBK IN FHC XAB> 
50 00 BE 9A 09D4 98 EBKC MOVZBL a(SP),RO 
of D6 0908 99 INCL 
50 4A Bi O9DA 600 CMPW XABSW_FFB(R9) ,RO : check first free byte 
3 60 OWS ad 601 BEQL prec : its len of rec + fsz + 2 
O9E 006 FIELD FFB IN FHC X 
00 16 AY 91 O9FS 6035 FFBC: CMPB XABSB TBKICRD) wt) 3; check bucket size 
15 13 O9F9 604 BEQL BKZC 
HA 605 FIELD <BKZ IN FHC XAB> 
04 17A9 91 = OAI 006 BKZC CMPB XABSB_HSZ(R9) #4 ; check fixed area size 
15 13 OA14 60 BEQL NSet 
A16 O88 FIELD IN FHC XAB> : 
0064 8F 18 AY B11 OA2B 609 HSZC CMPW Hass W_MRZ(R9) #100 3 check max. rec size 
15 13 OA31 610 BEQL mRzC 
A ; 611 FIELD <MRZ IN FHC X 
OF 1A A9 } AS O16 MRZC: CMPW XABSW TDXQCRID. wit : check def ext. qty 
15 3 OASC 61 BEQL Xx 
AS gi8 FIELD <DXQ IN FHC XAB> 
50 00 BE 9A OQA6 15 Dxaec MOVZBL a(SP),RO 
gf 43 0A6 o18 INCL (SP) 
0 E A69 1 BLBC RO,10$ 
00 28 A9 O01 Age e19 CMPL XABSL_SBN(R9) ,#0 3; make sure non-zero lbn 
A? 620 ; 
A7 621 since it's ctg 
A7 6 gi ; 
A? ° 
1D \¢ A7 4 BNEQ FHC_OK 
06 1 A7 9 5 BRB 208 
00 228A D1 OA7 § 10$ CMPL XABSL_SBN(R9) , #0 ; make sure zero lbn | 
15 13 OA78 6 BEQL FHC_OR ; since it isn't contig. 
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A7A 20$: {ELD <SBN IN FHC XAB> 
05 OA8F £35 FHC_OK: 
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SEP- UETP.SRCJRMSTEST4.MAR; 1 (15) 
| CHECK_DATES: 


4; 
5 ;routine to check edt and cdt in dat xab 
sand rdt and rvn in both dat and rdt xab's 


MOVW #DATLEN,LEN 
B #DEVSV_S0D, FABSL_DEV(R11),10$ 
Rov #TIMLER, LEN 


DATXAB, 
SCTIM_ CMPDATDEC, XABSQ_CDT(R9) 
LEN, CDT, CMPDAT 

BEQL (COT 

FIELD <CDT IN DAT XAB> 


; default is check date only 


ae | . ch i 
108: not mta, check date and time 


wr 
nr 


F766 CF =6FGOED9 CF OF 76A 


CDTOK: 


ADB 4 SASCTIM_S CMPDATDEC, XAB$Q_EDT(R9) 
F735 CF F6E6 CF 98 7 One 4 CmPC #DATLEN, EDT, CMPDAT - : only check date 
1 AF 5 BEQL 
AF 8 FIELD <EDT IN DAT XAB> 
oc 52 EDTOK: 
01 40 AB 00000000‘ 8F fi of ? BBC #DEVSV_SQD,FABSL_DEV(R11),10$ 
5 061 5 RSB ; that's it if mta 
pe 655 10$: SASCTIM_S CMPDATDEC, XABSQ_RDT(R9) 
FOF8 CF F71C DF  F6FC CF ¢ 65 CMPC3 “LEN, @CURRDT,CMPDAT 
15 13 0B 6 BEQL 
0B34 6 FIELD <RDT IN DAT XAB> 
84 659 RDTOK: 
49 66 SASCTIM_S CMPDATDEC, XABS$Q_RDT+RDTXAB 
FOC4 CF FOES DF FO6CB8 CF 29 OBSC 66 CMPC3 “LEN, @CURRDT, CMPDAT 
15 13 444 66 BEQL RDTOK 
§ 66 FIELD <RDT IN RDT XAB> 
D 664 RDTOK1: 
08 AD F6AS CF BI 4 665 CMPW CURRVN, XABSW_RVN(R9) 
= 008 BEQL Vv 
5 $8 FIELD <RVN IN DAT XAB> 
FSD7 CF F688 CF Bl A 668 RVNOK: CMPW CURRVN, XABSW_RVN+RDTXAB 
ws: Wa 1 669 BEQL RVNOK1 
AS 670 FIELD <RVN IN RDT XAB> 
05 3 671 RVNOK1: RSB 
068 672 - END 
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RMSTESTS KAB RMS TEST PROGRAM 16-SEP-1984 01:47: AX/VMS Macro v04-00 Pa 1 
Symbol table 878Ep= 1982 ba:d1:83 LORE SRC Sangreste mar: 1 oe 18, 
ROT? FR D 01 XABSC_TRM s F D 
RDT CDEC R D 01 XABSC_TRMLEN s » 2: 
RDTDEC R D 01 XABSL_ACLBUF = D 
RDTL = D XABSL-ACLCTX = D 
RDTL2 s 1 D XABSL_ALQ s D 
DTOK 49R D 01 KABSL_E K = 1 D 
RDTOK1 4 R D 01 ABSL- = 4 D 
DTXAB RGD 01 XABSL-ITMLST = D 
REPORT_ERROR aeeerere =X 1 AgSt iL s ¢ D 
C 90000956 R D 01 XABSL_NXT = D 
RIGHT FSR D O01 ABSL_SBN = 8 oO 
RASS EOF eeeereee =X 1 Ags uit = ¢ D 
RMTSTEST_4A 0 4 3 RGD 01 ABSQ- COT = D 
RSZ_OK 4R D 01 XABSQ_EDT 2 1¢ D 
RVNOK AR D 01 ABSQ"RDT s ¢ D 8 
RVNOK1 R D 01 ABSV_CT = d 
SAVEPRO QOOOIAB R D 01 XABSW_ACLS1Z = 1¢ D FA 
Stitt OK 0000696 R D 01 ABSW_DE s 08 | FA 
SYSSASCTIM eereenee GX 1 XABSW_DXQ = Q000001A =D FA 
SYSSBINTIM eeeeeeee GX 1 XABSW_FFB = 00 14 D FA 
SYSSCLOSE teeeeeee GX 1 XABSW_GRP s 300 E D FA 
SYSSCONNECT teeeeeee GX 1 XABSW_ITMLST_LEN = 00 C D FA 
SYSSCREATE eteenene GX 1 XABSW"LRL = 000 38 ae FA 
SYSS$DISCONNECT eeenener GX 1 XABSW_MBM = 38 D FA 
SYSSDISPLAY eeeeeeee GX 1 XABSW_MRZ = 0000001 D FA 
SYSSEXTEND eeeerene GX 1 XABSW_PRO = 00000.) D FA 
SYSS$FLUSH tenner GX 1 KApeu Reid = 0000001 D FA 
SYSSGET teeeeeee GX 1 XABSW_RE I = QO00001A oD FA 
SYSSOPEN eeeeeeee GX 01 XABSW_RF 14 = 000 O01 D FA 
SYSSPUT aeeeeeee GX 01 XABSW_RVN = 38 008 OD FA 
T4F AB 00000000 RG D 01 XABSW_VOL = Q000000A OD FA 
T4RAB eeeeeeee Xx 1 YES 00000446 R D 01 FA 
T4START RGD 01 ZERO_DAT_XABS 44 $C) R D 4 FA 
TIMLEN z D ZERO_XABS 00000827 R D 01 FA 
TRMXAB RGD 01 FA 
UIC D 01 FA 
UICOK D 4 Fl 
VERBOSITY x 1 Fl 
XAB$B_AID = D Fl 
$B = D Fl 
XABS$B_ATR s D GE 
XAB$B_BKZ = D KE 
XAB$B_HSZ = D L¢ 
XABSB_MTA s D L¢ 
XABSB_PROT_MODE = D L¢ 
XAB$B_PROT_OPT s D L¢ 
“RFO = D LC 
“ALL = D NA 
XABSC_ALLLEN = D Ok 
=DAT s D Or 
XABSC_DATLEN = D OF 
FHC s D Ok 
5 D 
= D 
z D 
s D 
z D 


x 
XABSC~RDTLEN 
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RMSTEST4 


XAB RMS TEST PROGRAM 
Psect synopsis 


"$SEp=19B6 04:31:32 


poaecce eee manr aaa > 


! Psect synopsis ! 


temo wmees- eae eccen ¢ 


PSECT name Allocation PSECT No. Attributes 
60 ( -} 0 ¢ -) NOPIC USR CON ABS LCL NOSHR NOEXE NO 
RMSTEST ( 3001.) 01 ¢ -) NOPIC USR CON REL GBL NOSHR- EXE RD 
0000 ¢ 8} ¢ ( -) NOPIC USR CON ABS LCL NOSHR EXE’ R&D 
SRMSNAM 3 A (¢ 42.) ( -) NOPIC USR CON REL LCL NOSHR 3 RD 
0 0 ( 864.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR XE RD 


! Performance indicators ! 


f¢oecaaaa Semon aw omewra maa $ 


Phase CPU Time Elapsed Time 


AX/VMS Macro v04-00 
UETP.SRCJRMSTEST4.MAR; 1 (15) 


Initialization $2 ut 09: -0 

pomnens processing 133 9-9 
syabo} table sort ug :5 
24 # ‘ 

a i 


=o 


wk table output 1 
Psect synopsis output 3 

Cross-reference output 9 0 
Assembler run totals 67 0 


The working set Limit was 1350 pages 
80832 bytes (i538 pages) of virtue ? 
There were 30 

source Lines were read in Pass 1, producing 
67 pages of virtual memory were used to define 5 


memory were used to buffer 
pages of symbol table space ke d to hold 46 


Wi 


ae: 


he intermediate code. 
non-local and 9 Local symbols. 


object records in Pass 2. 
macros. 


ee ee 


Macro Library name 


“$52 RSDUAGE: SYS.OBJJLIB.MLB;1 8 
5$DUA28: CSYSLIBISTARLET.MLB;2 3 
Tovacs (all libraries) 0 


1077 GETS were required to define 50 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMSTEST4/0BJ=OBJ$:RMSTEST4 MSRC$:RMSTEST4/UPDATE=(ENHS:RMSTEST4) +EXECMLS/LIB 
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NOWRT NOVEC BYTE 
LON 


WRT NOVEC BYTE 
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